home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
c7105.zip
/
WARNINGS.TPX
< prev
Wrap
Text File
|
1994-03-02
|
17KB
|
294 lines
#!┌───────────────────────────┤Template Segment├───────────┬─────────────────┐
#!│ Warnings.TPX │Version: 3007.105│
#!├───────────────────────────────┤Contents├───────────────┴─────────────────┤
#!│Structure Type Description │
#!│──────────────────── ───────── ─────────────────────────────────────────│
#!│InvalidFileMsg GROUP │
#!│BadKeyMsg GROUP │
#!│KeyBuildErrorMsg GROUP │
#!│PrinterOffLineMsg GROUP │
#!│PrintDeviceError GROUP │
#!│DelTempFileErrMsg GROUP │
#!│NotEnoughMemMsg GROUP │
#!│GeneralErrorMsg GROUP │
#!│KeyedRecordReadMsg GROUP │
#!│RecordChangedMsg GROUP │
#!│BadTrxPrimaryMsg GROUP │
#!│BadTrxChildMsg GROUP │
#!│ParentLockedMsg GROUP │
#!│ParentWriteErrMsg GROUP │
#!│FileSizeWarningMsg GROUP │
#!│FileTooLargeMsg GROUP │
#!│FieldValueTooHigh GROUP │
#!│FieldValueTooLow GROUP │
#!│FieldValueOutOfRange GROUP │
#!│ParentRecordNotFound GROUP │
#!│RIRestrictMsg GROUP │
#!│AbortTransactionMsg GROUP │
#!│RIUpdateError GROUP │
#!│RIDeleteError GROUP │
#!│TransactionLockMsg GROUP │
#!│TransactionErrorMsg GROUP │
#!│RIRecNotAvailMsg GROUP │
#!│TransactionHeldMsg GROUP │
#!│UnableToContinueMsg GROUP │
#!│LineTooLongMsg GROUP │
#!│ToDoMsg GROUP │
#!│AutoIncDuplicateMsg GROUP │
#!│UpdateErrorMsg GROUP │
#!│DupKeyErrorMsg GROUP │
#!│CreateFailureMsg GROUP │
#!├───────────────────────────────┤Comments├─────────────────────────────────┤
#!│Version Comments │
#!│──────── ────────────────────────────────────────────────────────────────│
#!│3007.000 Release of CDD3 version 3007 templates │
#!│3007.103 Modified AbortTransactionMsg GROUP │
#!│3007.105 Added AutoincDuplicateMsg GROUP │
#!│ Added UpdateErrorMsg GROUP │
#!│ Added DupKeyErrorMsg GROUP │
#!│ Added CreateFailureMsg GROUP │
#!│ Modified TransactionLockMsg GROUP │
#!│ Modified TransactionErrorMsg GROUP │
#!└──────────────────────────────────────────────────────────────────────────┘
#!
#!****************************************************************************
#GROUP(%InvalidFileMsg)
GLO:Message1 = 'Error accessing: '& NAME(File)
GLO:Message2 = 'Code: ' & ERRORCODE() & ' ' & ERROR()
GLO:Message3 = 'Press OK to return to DOS'
ShowWarning
#!****************************************************************************
#GROUP(%BadKeyMsg)
GLO:Message1 = NAME(File) & ' Key file is invalid'
GLO:Message3 = 'Press OK to rebuild keyfile'
ShowWarning
#!****************************************************************************
#GROUP(%KeyBuildErrorMsg)
GLO:Message1 = NAME(File) & ' The file cannot be repaired'
GLO:Message2 = 'while other stations are using it'
GLO:Message3 = 'Press OK to return to DOS'
ShowWarning
#!****************************************************************************
#GROUP(%PrinterOffLineMsg)
GLO:Message1 = 'The Printer is OffLine!'
GLO:Message3 = 'Please Correct the Situation!'
ShowWarning #<! Show an error message
#!****************************************************************************
#GROUP(%PrintDeviceError)
GLO:Message1 = CLIP(PrintDevice) & ' is not ready.'
GLO:Message2 = 'Be sure the Printer is online and attached to'
GLO:Message3 = 'the specified device and try again.'
ShowWarning #<! Show an error message
#!****************************************************************************
#GROUP(%DelTempFileErrMsg)
GLO:Message1 = 'Could not delete temporary file'
GLO:Message3 = TempFile
ShowWarning
#!****************************************************************************
#GROUP(%NotEnoughMemMsg)
GLO:Message1 = 'Not Enough Memory to proceed'
GLO:Message3 = 'with this operation . . . . '
ShowWarning
#!****************************************************************************
#GROUP(%GeneralErrorMsg)
GLO:Message1 = ERRORCODE() & ' ' & ERROR()
GLO:Message3 = 'Unable to continue . . . .'
ShowWarning
#!****************************************************************************
#GROUP(%KeyedRecordReadMsg)
GLO:Message1 = 'Unable to READ keyed record'
GLO:Message2 = 'Cannot continue update....'
GLO:Message3 = 'Error: '&ERRORCODE() & ' ' & ERROR()
ShowWarning
#!****************************************************************************
#GROUP(%RecordChangedMsg)
GLO:Message1 = 'The Record was changed by another station '
GLO:Message2 = 'your screen now reflects the changed data '
GLO:Message3 = 'OK button to continue, or CANCEL to abort '
ShowWarning
#!****************************************************************************
#GROUP(%BadTrxPrimaryMsg)
GLO:Message1 = 'Unable to save your changes at this time.'
GLO:Message2 = 'Another user may be saving a transaction.'
GLO:Message3 = 'Try again.'
ShowWarning
#!****************************************************************************
#GROUP(%BadTrxChildMsg)
GLO:Message1 = 'Unable to save your changes at this time.'
GLO:Message2 = 'Error: '& ERROR()
GLO:Message3 = 'Make any necessary changes and try again.'
ShowWarning
#!****************************************************************************
#GROUP(%ParentLockedMsg)
GLO:Message1 = 'This %ParentFile Entry is being updated'
GLO:Message3 = 'by another user. Try again later. '
ShowWarning
#!****************************************************************************
#GROUP(%ParentWriteErrMsg)
GLO:Message1 = 'Unable to save %ParentFile Entry.'
GLO:Message2 = 'Error: '& ERROR()
GLO:Message3 = 'The entry has not been saved.'
ShowWarning
#!****************************************************************************
#GROUP(%FileSizeWarningMsg)
GLO:Message1 = 'This is a large file and may take a while'
GLO:Message2 = 'to load. You may press the Esc key'
GLO:Message3 = 'while the file is loading to exit.'
ShowWarning ! Show a warning screen
#!****************************************************************************
#GROUP(%FileTooLargeMsg)
GLO:Message1 = 'Error: ' & ERROR() ! Create the error message
GLO:Message2 = 'This file is too large to be read into memory.'
GLO:Message3 = 'The entire file will not be displayed.'
ShowWarning ! Show the error message
#!****************************************************************************
#GROUP(%FieldValueTooHigh)
#IF(%ScreenFieldPrompt)
GLO:Message1 = 'The value entered in %ScreenFieldPrompt'
#ELSE
GLO:Message1 = 'The value entered in %FieldID'
#ENDIF
GLO:Message3 = 'cannot exceed %FieldRangeHigh'
ShowWarning ! Show the error message
#!****************************************************************************
#GROUP(%FieldValueTooLow)
#IF(%ScreenFieldPrompt)
GLO:Message1 = 'The value entered in %ScreenFieldPrompt'
#ELSE
GLO:Message1 = 'The value entered in %FieldID'
#ENDIF
GLO:Message3 = 'cannot be less than %FieldRangeHigh'
ShowWarning ! Show the error message
#!****************************************************************************
#GROUP(%FieldValueOutOfRange)
#IF(%ScreenFieldPrompt)
GLO:Message1 = 'Valid entries for %ScreenFieldPrompt'
#ELSE
GLO:Message1 = 'Valid entries for %FieldID'
#ENDIF
GLO:Message3 = 'are from %FieldRangeLow TO %FieldRangeHigh'
ShowWarning ! Show the error message
#!****************************************************************************
#GROUP(%ParentRecordNotFound)
GLO:Message1 = 'Error: ' & ERRORCODE() & ' '& ERROR() #<! Build error message
GLO:Message2 = 'The value you enter must exist in the'#<!Tell User what to do
#IF(%FileDescription) #! If a Description Provided
GLO:Message3 = '%FileDescription File' #<! Identify the Lookup file
#ELSE #! ELSE (No Description)
GLO:Message3 = 'File: %FieldLookup' #<! Identify the Lookup file
#ENDIF #! END (If Description...)
ShowWarning #<! Show the error message
#!****************************************************************************
#GROUP(%RIRestrictMsg)
GLO:Message1 = 'This record is referenced from other file(s)'
GLO:Message2 = 'Linking field(s) have been restricted from'
GLO:Message3 = 'change and have been reset to original values'
ShowWarning ! Show the warning message
#!****************************************************************************
#GROUP(%AbortTransactionMsg)
#!
#!┌────────────────────────────┤Template Group├────────────┬─────────────────┐
#!│ AbortTransactionMsg │Version: 3007.103│
#!├──────────────────────────────┤Description├─────────────┴─────────────────┤
#!│Purpose: Generate Message concenring Aborted RI Transactions │
#!│Called From: RIUpdates #GROUP in Relation.TPX │
#!│ RIDeletes #GROUP in Relation.TPX │
#!│Assumptions: None │
#!│Inserts: None │
#!│Symbols Set: None │
#!│Notes: None │
#!├───────────────────────────────┤Comments├─────────────────────────────────┤
#!│Version Comments │
#!│──────── ────────────────────────────────────────────────────────────────│
#!│3007.000 Release of CDD3 version 3007 templates │
#!│3007.103 Removed the call to ShowWarning. │
#!└──────────────────────────────────────────────────────────────────────────┘
#!
GLO:Message1 = 'Unable to complete the transaction'
GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
GLO:Message3 = 'Files have been restored to original values'
#!****************************************************************************
#GROUP(%RIUpdateError)
GLO:Message1 = 'Unable to complete the Referential Update'
GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
GLO:Message3 = 'File: %Primary could not be updated !'
ShowWarning ! Show the warning message
#!****************************************************************************
#GROUP(%RIDeleteError)
GLO:Message1 = 'Unable to complete the Referential Delete'
GLO:Message2 = 'Error: ' & ERRORCODE() & ' ' & ERROR()
GLO:Message3 = 'File: %Primary could not be deleted !'
ShowWarning ! Show the warning message
#!****************************************************************************
#GROUP(%TransactionLockMsg)
glo:Message1 = 'The transaction cannot be completed at '
glo:Message2 = 'at this time. One or more of the files'
glo:Message3 = 'is already locked. You may retry the operation'
#!****************************************************************************
#GROUP(%TransactionErrorMsg)
glo:Message1 = 'The transaction cannot be completed'
glo:Message2 = 'at this time. The error posted was: '
glo:Message3 = ERROR()
#!****************************************************************************
#GROUP(%RIRecNotAvailMsg)
GLO:Message1 = 'Unable to complete the transaction'!Prepare warning message
GLO:Message3 = 'Updated Record is no longer available'!Prepare warning message
#!****************************************************************************
#GROUP(%TransactionHeldMsg)
GLO:Message1 = 'The Record is locked by another workstation '
GLO:Message2 = 'when you return to the entry FORM choose OK '
GLO:Message3 = 'to try the update again, or CANCEL to abort '
ShowWarning #<!Show user a warning
#!****************************************************************************
#GROUP(%UnableToContinueMsg)
GLO:Message2 = 'Unable to continue, Press OK to exit'
ShowWarning #<!Notify the user
#!****************************************************************************
#GROUP(%LineTooLongMsg)
GLO:Message1 = 'The line length is greater than %FileLineLength.'
GLO:Message2 = 'The selected file is not an ASCII file.'
GLO:Message3 = 'No view on this file is available.'
ShowWarning #<! Show an error message
#!****************************************************************************
#GROUP(%ToDoMsg)
GLO:Message1 = 'The Procedure' #<! set First Message Line
GLO:Message2 = '%MessageLine2' #<! set Second Message Line
GLO:Message3 = 'Has Not Yet Been Defined' #<! set Third Message Line
ShowWarning #<! and inform the user
#!****************************************************************************
#GROUP(%AutoIncDuplicateMsg)
GLO:Message1 = 'When adding a record, an unexplained Duplicate'#<! set First Message Line
GLO:Message2 = 'error was encountered.' #<! set Second Message Line
ShowWarning #<! and inform the user
#!****************************************************************************
#GROUP(%UpdateErrorMsg)
CASE Action !Error message based on Action
OF AddRecord
GLO:Message1 = 'Error attempting to ADD Record'
OF ChangeRecord
GLO:Message1 = 'Error attempting to CHANGE Record'
OF DeleteRecord
GLO:Message1 = 'Error attempting to DELETE Record'
END !End CASE Action
GLO:Message2 = 'The file: %Primary could not be updated'
GLO:Message3 = 'Code:'&Errorcode()&': '&Error()
ShowWarning !Notify the user
#!****************************************************************************
#GROUP(%DupKeyErrorMsg)
GLO:Message3 = '[ '
#FOR(%KeyField)
GLO:Message3 = Clip(GLO:Message3) & (' %KeyField ')
#ENDFOR
GLO:Message3 = Clip(GLO:Message3)&' ]'
GLO:Message1 = 'This record creates a duplicate key entry'
GLO:Message2 = 'The unique key field(s) are listed below: '
ShowWarning #<!inform the user
#!****************************************************************************
#GROUP(%CreateFailureMsg)
GLO:Message1 = 'The creation of ' & NAME(File)
GLO:Message2 = 'failed. The error received was:'
GLO:Message3 = ERRORCODE() & ' - ' & ERROR()
ShowWarning #<!inform the user
#!****************************************************************************
#CHAIN('CPD21.TPX')